   
DialDialog1.Filter = "Access Files (*.mdb)|*.mdb|"
og1.ShowOpen
Text11.Text = Dialog1.FileName
If Dialog1.FileName = "" Then
dbname = App.Path
dbname = dbname & " \Counts.mdb"
Label2.Caption = dbname
Exit Sub
End If
Data_Path = Dialog1.FileName
Timer1.Enabled = True




'  
Public Data_Path As String
